inherited FEmpresaPermissao: TFEmpresaPermissao
  Left = 309
  Top = 176
  BorderStyle = bsDialog
  Caption = 'Permiss'#227'o de Acesso para a Empresa'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited pcCadastro: TPageControl
    inherited TsPesquisa: TTabSheet
      inherited pnPesquisa: TPanel
        inherited Pmostrando_excluidos: TPanel
          inherited Situacao_filtro_excluido: TLabel
            Width = 141
          end
        end
      end
      inherited dbgPesquisaPadra: TDBGrid
        Columns = <
          item
            Expanded = False
            FieldName = 'EMP_CODIGO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'EMP_RAZAO'
            Width = 351
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'EMP_FANTASIA'
            Width = 371
            Visible = True
          end>
      end
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        object Label1: TLabel [0]
          Left = 10
          Top = 36
          Width = 52
          Height = 16
          Caption = 'Empresa'
        end
        inherited panel2: TPanel
          inherited SBAtualiza: TSpeedButton
            Left = 814
          end
          inherited BtnIncluir: TBitBtn
            Left = 856
            Visible = False
          end
          inherited BtnEditar: TBitBtn
            Left = 7
          end
          inherited BtnExcluir: TBitBtn [3]
            Left = 713
            Visible = False
          end
          inherited DBNavigator1: TDBNavigator [4]
            Left = 700
            Hints.Strings = ()
          end
          inherited BtnFechar: TBitBtn [5]
            Tag = 5
            Left = 305
          end
        end
        inherited panel3: TPanel
          Top = 397
          Height = 87
          inherited BtnConsuta: TBitBtn
            Left = 327
            Visible = False
          end
          inherited BtnSalvar: TBitBtn
            Left = 628
          end
          inherited BtnCancelar: TBitBtn
            Left = 727
          end
        end
        object DBLEmpresa: TDBLookupComboBox
          Left = 10
          Top = 55
          Width = 390
          Height = 22
          Ctl3D = False
          KeyField = 'EMP_CODIGO'
          ListField = 'EMP_RAZAO'
          ListSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 2
        end
        object GBPermissoes: TGroupBox
          Left = 10
          Top = 78
          Width = 824
          Height = 307
          Caption = '  Permiss'#245'es  '
          Ctl3D = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 3
          object CkLBPermissao: TCheckListBox
            Left = 10
            Top = 23
            Width = 803
            Height = 275
            Ctl3D = False
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = 'Courier New'
            Font.Style = [fsBold]
            ItemHeight = 17
            Items.Strings = (
              'sljfhsdlkflksdf')
            ParentCtl3D = False
            ParentFont = False
            TabOrder = 0
          end
        end
        object CbMarcarTodos: TCheckBox
          Left = 714
          Top = 64
          Width = 119
          Height = 21
          Caption = 'Marcar Todos'
          Ctl3D = True
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 4
          OnClick = CbMarcarTodosClick
        end
      end
    end
  end
  inherited QCadastro: TQuery
    SQL.Strings = (
      'select * from empresa'
      'Order By  emp_Codigo')
  end
  inherited dspCadastro: TDataSetProvider
    DataSet = QEmpresaPermissao
  end
  inherited cdsCadastro: TClientDataSet
    object cdsCadastroEMP_CODIGO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'EMP_CODIGO'
    end
    object cdsCadastroEMP_RAZAO: TStringField
      DisplayLabel = 'Raz'#227'o Social'
      FieldName = 'EMP_RAZAO'
      Size = 60
    end
    object cdsCadastroEMP_FANTASIA: TStringField
      DisplayLabel = 'Nome Fantasia'
      FieldName = 'EMP_FANTASIA'
      Size = 60
    end
    object cdsCadastroEMP_CNPJ: TStringField
      FieldName = 'EMP_CNPJ'
    end
    object cdsCadastroEMP_ENDERECO: TStringField
      FieldName = 'EMP_ENDERECO'
      Size = 60
    end
    object cdsCadastroEMP_BAIRRO: TStringField
      FieldName = 'EMP_BAIRRO'
      Size = 60
    end
    object cdsCadastroEMP_CEP: TStringField
      FieldName = 'EMP_CEP'
      Size = 10
    end
    object cdsCadastroEMP_CIDADE: TStringField
      FieldName = 'EMP_CIDADE'
      Size = 60
    end
    object cdsCadastroEMP_ESTADO: TStringField
      FieldName = 'EMP_ESTADO'
      Size = 2
    end
    object cdsCadastroEMP_FONE: TStringField
      FieldName = 'EMP_FONE'
    end
    object cdsCadastroEMP_FAX: TStringField
      FieldName = 'EMP_FAX'
    end
    object cdsCadastroEMP_EMAIL: TStringField
      FieldName = 'EMP_EMAIL'
      Size = 62
    end
    object cdsCadastroEMP_INSCESTADUAL: TStringField
      FieldName = 'EMP_INSCESTADUAL'
    end
    object cdsCadastroEMP_INSCMUNICIPAL: TStringField
      FieldName = 'EMP_INSCMUNICIPAL'
    end
    object cdsCadastroEMP_RESPONSAVEL: TStringField
      FieldName = 'EMP_RESPONSAVEL'
      Size = 60
    end
    object cdsCadastroEMP_USACENTROCUSTO: TStringField
      FieldName = 'EMP_USACENTROCUSTO'
      Size = 6
    end
    object cdsCadastroEMP_AUTORIZABAIXA: TStringField
      FieldName = 'EMP_AUTORIZABAIXA'
      Size = 6
    end
    object cdsCadastroNUMERONOTAFISCALENTRADA: TIntegerField
      FieldName = 'NUMERONOTAFISCALENTRADA'
    end
    object cdsCadastroSERIENOTAFISCALENTRADA: TStringField
      FieldName = 'SERIENOTAFISCALENTRADA'
      Size = 3
    end
    object cdsCadastroNUMERONOTAFISCALSAIDA: TIntegerField
      FieldName = 'NUMERONOTAFISCALSAIDA'
    end
    object cdsCadastroSERIENOTAFISCALSAIDA: TStringField
      FieldName = 'SERIENOTAFISCALSAIDA'
      Size = 3
    end
    object cdsCadastroNUMEROSELO: TIntegerField
      FieldName = 'NUMEROSELO'
    end
    object cdsCadastroSERIESELO: TStringField
      FieldName = 'SERIESELO'
      Size = 2
    end
    object cdsCadastroEMP_LAYOUT: TStringField
      FieldName = 'EMP_LAYOUT'
      Size = 4
    end
    object cdsCadastroEMP_CONTACAIXA: TIntegerField
      FieldName = 'EMP_CONTACAIXA'
    end
    object cdsCadastroEMP_DATA_ULT_ATU_BASE: TDateTimeField
      FieldName = 'EMP_DATA_ULT_ATU_BASE'
    end
    object cdsCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
  end
  object QEmpresaPermissao: TQuery
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'select * from empresa'
      'Order By  emp_Codigo'
      ''
      ''
      '')
    Left = 232
    Top = 320
  end
  object DSEmpresaPermissao: TDataSource
    AutoEdit = False
    DataSet = QEmpresaPermissao
    OnStateChange = DSEmpresaPermissaoStateChange
    OnDataChange = DSEmpresaPermissaoDataChange
    Left = 376
    Top = 472
  end
end
